home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / nshadow / p-s.bas < prev    next >
Encoding:
BASIC Source File  |  1994-06-23  |  914 b   |  29 lines
  1. 10 PRINT "          PARALLEL TO SERIES CONVERSION"
  2. 11 PRINT
  3. 15 INPUT "ENTER PARALLEL RESISTANCE (RP)"; RP
  4. 20 INPUT "ENTER PARALLEL REACTANCE (XP) (-) IF CAPACITIVE"; XP
  5. 25 RS = RP * XP^2/(RP^2 + XP^2)
  6. 30 XS = RS * RP/XP
  7. 35 ZS = (RS^2 + XS^2)^.5
  8. 40 W = 57.29578
  9. 45 A = (ATN(XS/RS))*W
  10. 50 GP = 1/RP
  11. 55 BP = -1/XP
  12. 60 YP = 1/ZS
  13. 65 AB = -A
  14. 100 PRINT
  15. 101 PRINT "             ***ANSWERS***"
  16. 102 PRINT
  17. 105 PRINT RP, "PARALLEL RESISTANCE (RP)"
  18. 110 PRINT XP, "PARALLEL REACTANCE (XP)"
  19. 115 PRINT RS, "SERIES RESISTANCE (RP)"
  20. 120 PRINT XS, "SERIES REACTANCE (XS)"
  21. 125 PRINT ZS, "SERIES IMPEDANCE (ZS)"
  22. 130 PRINT  A, "PHASE ANGLE OF SERIES IMPEDANCE"
  23. 135 PRINT GP, "PARALLEL CONDUCTANCE (GP)"
  24. 140 PRINT BP, "PARALLEL SUSCEPTANCE (BP)"
  25. 145 PRINT YP, "PARALLEL ADMITTANCE (YP)"
  26. 150 PRINT AB, "PHASE ANGLE OF PARALLEL ADMITTANCE"
  27. 155 PRINT ZS;RS;XS, "ZS = RS + jXS"
  28. 160 PRINT YP;GP;BP, "YP = GP + jBP"
  29.